home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / misc / nshadow / para.bas < prev    next >
Encoding:
BASIC Source File  |  1994-06-23  |  943 b   |  29 lines
  1. 5 PRINT "                  ***PARALLEL RESONANCE***"
  2. 10 PRINT
  3. 15 PRINT "WHAT IS THE VALUE OF (C) IN Pf?"
  4. 20 INPUT "ENTER";C
  5. 25 PRINT "WHAT IS THE VALUE OF (L) IN uH?"
  6. 30 INPUT "ENTER";L
  7. 35 PRINT "WHAT IS THE VALUE OF THE PARALLEL RESISTANCE(R)?"
  8. 40 INPUT "ENTER";R
  9. 45 P=3.141592654#
  10. 50 Y=180/P
  11. 55 FR=10^3/((2*P)*((L*C)^.5))
  12. 60 PRINT "WHAT IS THE DESIRED FREQUENCY (F) IN MHz?"
  13. 65 INPUT "ENTER";F
  14. 70 FA=F*10^6
  15. 75 LA=L/10^6
  16. 80 CA=C/10^12
  17. 85 Z=(R*LA*2*P*FA)/((R^2*(1-4*P^2*FA^2*LA*CA)^2+4*P^2*FA^2*LA^2)^.5)
  18. 90 A=90-(Y*(ATN((2*P*FA*LA)/(R*(1-4*P^2*FA^2*LA*CA)))))
  19. 95 PRINT
  20. 100 PRINT "                     ***ANSWERS***"
  21. 105 PRINT
  22. 110 PRINT C,"CAPACITY (C) IN Pf."
  23. 115 PRINT L,"INDUCTANCE (L) IN uH."
  24. 120 PRINT R,"PARALLEL RESISTANCE (R) IN OHMS."
  25. 125 PRINT FR,"RESONANT FREQUENCY (FR) IN MHz."
  26. 130 PRINT F,"DESIRED FREQUENCY (F) IN MHz."
  27. 135 PRINT Z,"IMPEDANCE (Z) IN OHMS."
  28. 140 PRINT A,"PHASE ANGLE (A) IN DEGREES."
  29.